home *** CD-ROM | disk | FTP | other *** search
/ Internet 1996 World Exposition / park.org.s3.amazonaws.com.7z / park.org.s3.amazonaws.com / Japan / Panasonic- / funcity / paris / wave / TITLEJ.dcr / 00040_M Check.ls < prev    next >
Encoding:
Text File  |  2017-09-21  |  969 b   |  38 lines
  1. global debug, bank, mm, status, hit1, hit2, hit3
  2.  
  3. on exitFrame
  4.   set lm to length(field "BUFF") - (8 * 3)
  5.   set mm to value(chars(field "BUFF", 1, lm))
  6.   if chars(field "BUFF", lm, lm) = "1" then
  7.     if mm >= 0 then
  8.       set the visible of sprite 8 to 1
  9.       set the visible of sprite 14 to 1
  10.       set hit1 to 1
  11.     end if
  12.   end if
  13.   if chars(field "BUFF", lm + 1, lm + 1) = "2" then
  14.     set the visible of sprite 9 to 1
  15.     set the visible of sprite 15 to 1
  16.     set hit2 to 1
  17.   end if
  18.   if chars(field "BUFF", lm + 2, lm + 2) = "3" then
  19.     if mm >= 0 then
  20.       set the visible of sprite 10 to 1
  21.       set the visible of sprite 16 to 1
  22.       set hit3 to 1
  23.     end if
  24.   end if
  25.   if (hit1 = 0) and (hit2 = 0) and (hit3 = 0) then
  26.     if debug = 0 then
  27.       preloadnetthing("OPENJ.dcr")
  28.       set status to 1
  29.     else
  30.       alert("PreLoad OPENJ")
  31.     end if
  32.   else
  33.     set the visible of sprite 7 to 1
  34.     set the visible of sprite 12 to 0
  35.   end if
  36.   go("ToBeC")
  37. end
  38.